home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1995 November (Mac) / cd No7 joystick No65 novembre 1995.iso / mac / Fouillationnons! / Jeux / Xconq 7.0.1 / lib / tank.g < prev    next >
Text File  |  1995-08-22  |  669b  |  38 lines
  1. (game-module "tank"
  2.   (title "Tank")
  3.   (blurb "Simple tank battles")
  4.   (variants
  5.     (see-all false)
  6.     (world-seen false)
  7.     (world-size (20 20 10000))
  8.     )
  9.   )
  10.  
  11. (terrain-type plains (color "green") (char "+"))
  12. (terrain-type hills (color "brown") (char "^"))
  13.  
  14. (unit-type tank (image-name "tank") (char "T")
  15.   (start-with 1)
  16.   (acp-per-turn 2)
  17.   (hp-max 10)
  18.   )
  19.  
  20. (table hit-chance
  21.   (tank tank 100)
  22.   )
  23.  
  24. (table damage
  25.   (tank tank 1d4)
  26.   )
  27.  
  28. (add tank vision-range 6)
  29.  
  30. (add t* occurrence (50 1))
  31.  
  32. (set synthesis-methods '(make-random-terrain make-countries))
  33.  
  34. ;;; Don't want the world to wrap around.
  35.  
  36. ;(world 10000) ; causes a warning, unclear if justified warning...
  37.  
  38.